home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / iv.dir / 00039_next button callback.ls < prev    next >
Encoding:
Text File  |  1996-04-19  |  1.5 KB  |  44 lines
  1. on mouseDown
  2.   global givState
  3.   if count(the questionSelectList of givState) < 1 then
  4.     nothing()
  5.     exit
  6.   end if
  7.   set clik to the clickOn
  8.   PlaySoundWait("CLIK2.AIF")
  9.   if the mode of givState = #edit then
  10.     set the castNum of sprite clik to the number of cast "next button down"
  11.     set tmp to the number of cast "next button down"
  12.   else
  13.     set the castNum of sprite clik to the number of cast "play mode next button down"
  14.     set tmp to the number of cast "play mode next button down"
  15.   end if
  16.   updateStage()
  17.   repeat while the stillDown
  18.     nothing()
  19.   end repeat
  20.   if the mouseCast = tmp then
  21.     if (the activeVideoMode of givState = #play) or (the activeVideoMode of givState = #pause) then
  22.       pass()
  23.     else
  24.       if count(the questionSelectList of givState) > 0 then
  25.         set ct to count(the questionSelectList of givState)
  26.         set ptr to the selectListPlaybackPtr of givState
  27.         set ptr to ptr + 1
  28.         if ptr > ct then
  29.           set ptr to 1
  30.         end if
  31.         set the selectListPlaybackPtr of givState to ptr
  32.         SetMonitorPtr(givState, the activeMonitor of givState, getAt(the questionSelectList of givState, ptr))
  33.         SetQuestionTextBoxHilite(getAt(the questionSelectList of givState, ptr))
  34.         DisplayMonitor(the activeMonitor of givState)
  35.       end if
  36.     end if
  37.   end if
  38.   if the mode of givState = #edit then
  39.     set the castNum of sprite clik to the number of cast "next button"
  40.   else
  41.     set the castNum of sprite clik to the number of cast "play mode next button"
  42.   end if
  43. end
  44.